home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netUltra.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.1 KB  |  21 lines
  1. if (!defined &_NETULTRA) {
  2.     eval 'sub _NETULTRA {1;}';
  3.     eval 'sub Net_UltraAddressSet {
  4.         local($addrPtr, $group, $unit) = @_;
  5.         eval "{ (( &unsigned \'char\' *) ($addrPtr))[4] = ($group) >> 2; (( &unsigned \'char\' *) ($addrPtr))[5] = (($group) << 6) | ($unit); (( &unsigned \'char\' *) ($addrPtr))[1] = 0x49; (( &unsigned \'char\' *) ($addrPtr))[6] = 0xfe; }";
  6.     }';
  7.     eval 'sub Net_UltraAddressGet {
  8.         local($addrPtr, $groupPtr, $unitPtr) = @_;
  9.         eval "{ *($groupPtr) = ((( &unsigned \'char\' *) ($addrPtr))[4] << 2) | ((( &unsigned \'char\' *) ($addrPtr))[5] >> 6); *($unitPtr) = ((( &unsigned \'char\' *) ($addrPtr))[5] & 0x3f); }";
  10.     }';
  11.     eval 'sub NET_ULTRA_ADDR_SIZE {7;}';
  12.     eval 'sub NET_ULTRA_TSAP_SIZE {4;}';
  13.     eval 'sub Net_UltraTLWildcard {
  14.         local($addrPtr) = @_;
  15.         eval "{  &bzero((\'char\' *) ($addrPtr), $sizeof{ &Net_UltraTLAddress}); ($addrPtr)-> &addressSize = 7; ($addrPtr)-> &tsapSize = 4; }";
  16.     }';
  17.     eval 'sub NET_ULTRA_MIN_BYTES {0;}';
  18.     eval 'sub NET_ULTRA_MAX_BYTES {(32768 + $sizeof{ &Net_UltraHeader});}';
  19. }
  20. 1;
  21.